home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / somfreq.igb < prev    next >
Text File  |  1993-08-23  |  2KB  |  68 lines
  1. inst4.1     !April, 1993
  2. !****************************************************************
  3. !*                                *
  4. !*    SOM frequency Estimates                    *
  5. !*                                *
  6. !****************************************************************
  7. !
  8.  
  9. @LLsl                !Load super-layer
  10. =n0    Lpes            !Number of layers
  11. =LayN    0
  12.  
  13. ! Look for first layer that learns
  14.  
  15. :Koh1
  16. =n1    LayN            !remember layer
  17. +LayN    1            !next layer
  18. ?LayN    n0
  19. >bgt    KohEnd            !past output layer
  20. @LLly                !load the layer
  21. ?Llrn    0            !is this a preprocessing layer?
  22. >bne    Koh2            !we are past the preprocessing layers
  23. >br    Koh1            !next layer
  24.  
  25. :Koh2
  26. =n4    Lpes            !#PEs in Kohonen layer
  27. =n5    Lpes            !
  28. /n5    LDnr            !# cols
  29.  
  30. =SPEl    LayN            !set up as selected (dest) layer
  31.  
  32. ! Add probe
  33. =NPEl    LayN            !point to layer
  34. =PNam    "SOMLayer"        !probe name
  35. @PbAS                !Add Probe
  36. @PbDC                !Delete all components
  37. @PALy                !Add Near Layer to Probe
  38.  
  39. ! Now build the instrument
  40. @ILdD                !load default instrument
  41. =ITit    "Freq. Estimates"    !Instrument title
  42. =IGTy    "Hinton"        !Graph Type
  43. =IGVr    "CurErr"        !Variable
  44. =ITTy    "RMS"            !RMS Transformation Type
  45. =ITMd    0            !No transformation
  46. =IEpc    0            !No epoch
  47.  
  48. =n0    Lpes            !#PEs in SOM layer
  49. =n1    LDnr            !#rows in display
  50.  
  51. ! standard bar graph parameters
  52. #Incl    "barparms.iif"
  53.  
  54. =Ivmn    0.0
  55. =Ivmx    3.0
  56. /Ivmx    Lpes
  57. =ILnA    1            !Active in Learn
  58. =IRcA    0            !Not Active in recall
  59. =ILDv    50            !Every iteration
  60. =IPrb    PNam            !Point to probe
  61. =ICAc    0            !Convergence criterion inactive
  62. =ICTh    0.0            !Convergence Threshold
  63. !Let NeuralWorks figure out where to put instrument
  64. =x    0
  65. =y    0
  66. @IAdd                !Now create instrument
  67. :KohEnd
  68.